home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1987 #5
/
Floppy_Magazine_87-5_1987_Megasystems_Oy_fi_Side_B.d64
/
part1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
491b
|
17 lines
5 vm=32768:cc=2:ch=vm+cc*1024:rm=53248-ch
10 poke 56578,peek(56578)or3
20 poke 56576,(peek(56576)and252)or1
30 poke 53272,(peek(53272)and240)orcc
40 poke 53272,(peek(53272)and15)or0*11
50 poke 648,128
55 if peek(34816)=60 then 90
60 poke 56334,peek(56334)and254:poke1,peek(1)and251
70 forn=chtoch+2048:poke n,peek(n+rm):next
80 poke 1,peek(1)or4:poke56334,peek(56334)or1
90 print"[144][147]load"+chr$(34)+" part3"+chr$(34)+",8,1"
92 print"new"
94 print"poke 52,128:poke 56,128:clr"
96 print"load"+chr$(34)+" part6"+chr$(34)+",8"
98 print"run"
100 forn=0to4:poke 631+n,13:next:poke 198,5:print"";:end